100 REM PROGRAMMED BY BOB YEWCHUK MISSISSAUGA ONTARIO L5G 3Z1 120 REM AS OF AUGUST 8, 1983 140 REM INVENTION # 8 IN F -- BY J.S. BACH 160 REM 180 GOSUB10000 200 POKE53280,11:POKE53281,11:PRINTCHR$(8):PRINTCHR$(14):PRINTCHR$(5) 220 PRINT"[147][211]PEED: 1=[198]ASTEST" 225 PRINT" 300=[211]LOWEST":INPUTT 230 IFT=0THENT=100 240 PRINT"[147][201]NVENTION # 8 IN [198] 260 [153]" BY MID$. (null). PEEKACH" 290 [143] INITIALIZE VARIABLES 300 A1[178]54277:A2[178]54284:A3[178]54291:[143] ATTACK/DECAY 310 S1[178]54278:S2[178]54285:S3[178]54292:[143] SUSTAIN/RELEASE 320 W1[178]54276:W2[178]54283:W3[178]54290:[143] WAVWFORMS 330 H1[178]54273:H2[178]54280:H3[178]54287:[143] HIGH BYTE OF NOTE 340 L1[178]54272:L2[178]54279:L3[178]54286:[143] LOW BYTE OF NOTE 350 X1[178]54275:X2[178]54282:X3[178]54289:[143] HIGH NYBBLE OF PULSE WIDTH 360 Y1[178]54274:Y2[178]54281:Y3[178]54288:[143] LOW BYTE OF PULSE WIDTH 370 VC[178]54296:[143] VOLUME CONTROL 400 [143] START UP THE SYSTEM 410 [151]A1,74:[151]A2,74:[151]A3,74:[151]S1,168:[151]S2,168:[151]S3,138 430 [151]W1,65:[151]W2,65:[151]W3,65 440 [151]X1,27:[151]X2,72:[151]X3,145:[151]Y1,4:[151]Y2,3:[151]Y3,7 460 [151]VC,15 500 [143] THE MAIN ROUTINE 520 [135]A,B,C,D 540 [139]A[178]999[167]700 560 [151]H1,A:[151]L1,B:[151]H2,C:[151]L2,D 580 [129]W[178]1[164]T:[130] 600 [137]520 700 [135]A,B,C,D,E,F 720 [151]H1,A:[151]L1,B:[151]H2,C:[151]L2,D:[151]H3,E:[151]L3,F 740 [129]W[178]1[164]8[172]T:[130] 760 [151]H1,0:[151]L1,0:[151]H2,0:[151]L2,0:[151]H3,0:[151]L3,0 900 [141]10000:[153][199](9):[128] 990 [143] DATA STARTS HERE 1000 [131] 0,0,0,0,0,0,0,0,22,96,0,0,22,96,0,0,28,49,0,0,28,49,0,0 1010 [131]22,96,0,0,22,96,0,0,33,135,0,0,33,135,0,0,22,96,0,0,22,96,0,0:[143] BAR 1 1020 [131]44,193,0,0,44,193,0,0,42,62,11,48,37,162,11,48 1030 [131]33,135,14,24,37,162,14,24,33,135,11,48,29,223,11,48 1040 [131]28,49,16,195,29,223,16,195,28,49,11,48,25,30,11,48:[143] BAR 2 1050 [131]22,96,22,96,22,96,22,96,28,49,21,31,28,49,18,209 1060 [131]33,135,16,195,33,135,18,209,28,49,16,195,28,49,14,239 1070 [131]44,193,14,24,44,193,14,239,33,135,14,24,33,135,12,143:[143] BAR 3 1080 [131]56,99,11,48,67,15,11,48,59,190,14,24,67,15,14,24 1090 [131]56,99,16,195,67,15,16,195,59,190,14,24,67,15,14,24 1100 [131]56,99,22,96,67,15,22,96,59,190,16,195,67,15,16,195:[143] BAR 4 1110 [131]44,193,28,49,56,99,33,135,50,60,29,223,56,99,33,135 1120 [131]44,193,28,49,56,99,33,135,50,60,29,223,56,99,33,135 1130 [131]44,193,28,49,56,99,33,135,50,60,29,223,56,99,33,135:[143] BAR 5 1140 [131]37,162,22,96,44,193,28,49,42,62,25,30,44,193,28,49 1150 [131]37,162,22,96,44,193,28,49,42,62,25,30,44,193,28,49 1160 [131]37,162,22,96,44,193,28,49,42,62,25,30,44,193,28,49:[143] BAR 6 1170 [131]31,165,18,209,31,165,22,96,25,30,21,31,25,30,22,96 1180 [131]37,162,18,209,37,162,22,96,31,165,21,31,31,165,22,96 1190 [131]44,193,18,209,44,193,22,96,37,162,21,31,37,162,22,96:[143] BAR 7 1200 [131]50,60,15,210,56,99,15,210,50,60,12,143,44,193,12,143 1210 [131]42,62,16,195,44,193,16,195,42,62,12,143,37,162,12,143 1220 [131]33,135,21,31,37,162,21,31,33,135,16,195,29,223,16,195:[143] BAR 8 1230 [131]28,49,22,96,28,49,25,30,37,162,22,96,33,135,21,31 1240 [131]31,165,18,209,33,135,21,31,31,165,18,209,28,49,16,195 1250 [131]25,30,15,210,28,49,16,195,25,30,15,210,22,96,14,24:[143] BAR 9 1260 [131]21,31,12,143,22,96,12,143,21,31,16,195,18,209,15,210 1270 [131]16,195,14,24,16,195,15,210,33,135,14,24,31,165,12,143 1280 [131]33,135,11,48,33,135,12,143,21,31,11,48,21,31,10,143:[143] BAR 10 1290 [131]22,96,9,104,22,96,10,143,33,135,9,104,33,135,8,97 1300 [131]21,31,12,143,21,31,11,48,33,135,10,143,33,135,11,48 1310 [131]18,209,12,143,18,209,12,143,31,165,6,71,31,165,6,71:[143] BAR 11 1320 [131]33,135,0,0,33,135,0,0,8,97,0,0,8,97,0,0 1330 [131]10,143,0,0,10,143,0,0,8,97,0,0,8,97,0,0 1340 [131]12,143,0,0,12,143,0,0,8,97,0,0,8,97,0,0:[143] BAR 12 1350 [131]0,0,16,195,0,0,16,195,33,135,15,210,33,135,14,24 1360 [131]42,62,12,143,42,62,14,24,33,135,12,143,33,135,11,48 1370 [131]50,60,10,143,50,60,11,48,33,135,10,143,33,135,9,104:[143] BAR 13 1380 [131]67,15,8,97,67,15,8,97,63,75,10,143,56,99,10,143 1390 [131]50,60,12,143,56,99,12,143,50,60,10,143,44,193,10,143 1400 [131]42,62,16,195,44,193,16,195,42,62,12,143,37,162,12,143:[143] BAR 14 1410 [131]33,135,19,239,29,223,19,239,33,135,11,218,56,99,11,218 1420 [131]33,135,19,239,56,99,19,239,29,223,11,218,56,99,11,218 1430 [131]33,135,19,239,56,99,19,239,28,49,11,218,56,99,11,218:[143] BAR 15 1440 [131]29,223,12,143,29,223,12,143,25,30,11,48,25,30,9,247 1450 [131]29,223,9,104,29,223,9,247,25,30,9,104,25,30,8,97 1460 [131]37,162,7,119,37,162,8,97,25,30,7,119,25,30,7,12:[143] BAR 16 1470 [131]50,60,6,71,50,60,6,71,44,193,12,143,39,223,12,143 1480 [131]37,162,14,239,39,223,14,239,37,162,12,143,33,135,12,143 1490 [131]29,223,18,209,33,135,18,209,29,223,12,143,28,49,12,143:[143] BAR 17 1500 [131]25,30,25,30,25,30,25,30,29,223,22,96,29,223,19,239 1510 [131]37,162,18,209,37,162,19,239,29,223,18,209,29,223,16,195 1520 [131]50,60,14,239,50,60,16,195,37,162,14,239,37,162,14,24:[143] BAR 18 1530 [131]59,190,12,143,59,190,11,48,35,134,12,143,35,143,21,31 1540 [131]59,190,12,143,59,190,21,31,35,134,11,48,35,134,21,31 1550 [131]59,190,12,143,59,190,21,31,35,134,10,143,35,134,21,31:[143] BAR 19 1560 [131]37,162,11,48,37,162,10,143,28,49,11,48,28,49,18,209 1570 [131]44,193,11,48,44,193,18,209,37,162,10,143,37,162,18,209 1580 [131]56,99,11,48,56,99,18,209,44,193,9,104,44,193,18,209:[143] BAR 20 1590 [131]50,60,14,239,44,193,14,239,50,60,12,143,59,190,12,143 1600 [131]33,135,10,143,59,190,10,143,37,162,12,143,59,190,12,143 1610 [131]42,62,8,97,59,190,8,97,33,135,10,143,59,190,10,143:[143] BAR 21 1620 [131]44,193,14,24,42,62,14,24,44,193,11,48,56,99,11,48 1630 [131]31,165,9,104,56,99,9,104,35,134,11,48,56,99,11,48 1640 [131]37,162,7,223,56,99,7,223,31,165,9,104,56,99,9,104:[143] BAR 22 1650 [131]42,62,12,143,37,162,12,143,42,62,10,143,50,60,10,143 1660 [131]28,49,8,225,50,60,8,225,31,165,10,143,50,60,10,143 1670 [131]35,134,7,12,50,60,7,12,28,49,8,225,50,60,8,225:[143] BAR 23 1680 [131]44,193,4,180,44,193,9,104,37,162,8,97,37,162,9,104 1690 [131]29,223,6,71,29,223,9,104,37,162,7,12,37,162,9,104 1700 [131]25,30,7,119,25,30,9,104,44,193,6,71,44,193,9,104:[143] BAR 24 1710 [131]42,62,4,48,42,62,8,97,33,135,7,119,33,135,8,97 1720 [131]28,49,5,152,28,49,8,97,33,135,6,71,33,135,8,97 1730 [131]22,96,7,12,22,96,8,97,39,223,6,71,39,223,8,97:[143] BAR 25 1740 [131]37,162,7,119,44,193,7,119,39,223,9,104,44,193,9,104 1750 [131]37,162,11,48,44,193,11,48,39,223,9,104,44,193,9,104 1760 [131]37,162,14,239,44,193,14,239,39,223,11,48,44,193,11,48:[143] BAR 26 1770 [131]29,223,18,209,37,162,22,96,33,135,19,239,37,162,22,96 1780 [131]29,223,18,209,37,162,22,96,33,135,19,239,37,162,22,96 1790 [131]29,223,18,209,37,162,22,96,33,135,19,239,37,162,22,96:[143] BAR 27 1800 [131]25,30,14,239,29,223,18,209,28,49,16,195,29,223,18,209 1810 [131]25,30,14,239,29,223,18,209,28,49,16,195,29,223,18,209 1820 [131]25,30,14,239,29,223,18,209,28,49,16,195,29,223,18,209:[143] BAR 28 1830 [131]21,31,12,143,21,31,14,239,16,195,14,24,16,195,14,239 1840 [131]25,30,12,143,25,30,14,239,21,31,14,24,21,31,14,239 1850 [131]29,223,12,143,29,223,14,239,25,30,14,24,25,30,14,239:[143] BAR 29 1860 [131]33,135,10,143,37,162,10,143,33,135,8,97,29,223,8,97 1870 [131]28,49,11,48,29,223,11,48,28,49,8,97,25,30,8,97 1880 [131]22,96,14,24,25,30,14,24,22,96,11,48,19,239,11,48:[143] BAR 30 1890 [131]18,209,14,239,18,209,16,195,25,30,14,239,22,96,14,24 1900 [131]21,31,12,143,22,96,14,24,21,31,12,143,18,209,11,48 1910 [131]16,195,10,143,18,209,11,48,16,195,10,143,14,239,9,104:[143] BAR 31 1920 [131]14,24,8,97,14,239,8,97,14,24,11,48,12,143,10,143 1930 [131]11,48,9,104,11,48,10,143,22,96,9,104,21,31,8,97 1940 [131]22,96,7,119,22,96,8,97,14,24,7,119,14,24,7,12:[143] BAR 32 1950 [131]14,239,6,71,14,239,7,12,22,96,6,71,22,96,5,152 1960 [131]14,24,8,97,14,24,7,119,22,96,7,12,22,96,7,119 1970 [131]12,143,8,97,12,143,8,97,21,31,4,48,21,31,4,48:[143] BAR 33 1980 [131]999,999,999,999 2000 [143] LAST CHORD --- BAR 34 2010 [131] 22,96,14,24,5,152 10000 [129]Q[178]54270[164]54300:[151]Q,0:[130]:[142]